home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Compression / Data Parser 4.1 Folder / Data Parser 4.1 / Data Parser 4.1 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-06-15  |  2KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2971</cardID>
  8.     <listID>4125</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackif the version <2.1 thenanswer "You need Hypercard 2.1 or later for this stack"¬¨with "Rats"go homeif there is a window "Data Parser 4.1"then close window "Data Parser 4.1"exit to hypercardend ifglobal ascii,optiongo card "parser"send "colToDelim warm" to card "Parser"lock screensend "mouseup" to card button 3set the cursor to busysend "mouseup" to card button 17send mouseup to card button 10put "abcdefghijklmnopqrstuvwxyz" into asciiput "1234567890$&?.~" after asciiput the hilite of card button "Dos smart Input" into item 1 of optionset the cursor to busyput the hilite of card button "Dos smart Output" into item 2 of optiongo card "parser"unlock screenend openstackon closestackglobal ascii,delim,delim2,optionput "ascii,delim,delim2,option" into leegrepeat with x = 1 to the number of items in leegdo "put empty into"&&item x of leegend repeatgo card parserrepeat with x = 1 to the number of card fieldsput empty into card fld xend repeatend closestackon Abort string1,string2global errif string2 = empty thenput the last item of string1 into string2delete the last item of string1end ifif string1 = empty then put string2 into string1answer "Error occured"&return¬¨&"The Error text is :"&&quote&string1&quoteput string2 into card fld "Status"put empty into errexit to hypercardend aborton errordialog messabort mess,"Hypertalk error"end errordialog</script>
  17.     <background id="2786" file="background_2786.xml" name="" />
  18.     <card id="2971" file="card_2971.xml" marked="false" name="Parser" owner="2786" />
  19.     <card id="4007" file="card_4007.xml" marked="false" name="Saved" owner="2786" />
  20.     <card id="2201" file="card_2201.xml" marked="false" name="Help" owner="2786" />
  21. </stack>
  22.